SetTextStyle procedure

  DECLARATION:  SetTextStyle(Font : Word; Direction : Word;
                             CharSize : Word);

      PURPOSE:  Sets the current text font, style and size

         UNIT:  Graph

      REMARKS:  SetTextStyle affects all text output by OutText and
                OutTextXY.  The following font and direction constants
                are declared in the Graph unit.

                         Const
                            DefaultFont   = 0;  { 8x8 Bit Mapped Font }
                            TriplexFont   = 1;  { "Stroked" Fonts }
                            SmallFont     = 2;
                            SansSerifFont = 3;
                            GothicFont    = 4;

                            HorizDir  = 0;    { Left to Right }
                            VertDir   = 1;    { Bottom to Top }


                "Stroked" fonts are normally loaded from disk onto the heap
                when a call is made to SetTextStyle.  However, you may
                load the fonts yourself or link the fonts to your .EXE file.
                In either case, you must use RegisterBGIfont to register
                the font with the Graph unit.

                NOTE: Errors are returned through GraphResult.

 RESTRICTIONS:  Must first be in graphics mode.